home *** CD-ROM | disk | FTP | other *** search
/ The World of Computer Software / The World of Computer Software.iso / eue10.zip / USERATCK.PRG < prev    next >
Text File  |  1992-12-29  |  2KB  |  61 lines
  1. *Extended User Editor (useratck) - version 1.0 12/30/92 (c) 1992 James E. Swarm
  2. *
  3. *This version of the program is fully working, and is to be considered
  4. *shareware.  If you use this software I ask that you register it with
  5. *a donation to my BBS.  Registered users will receive full tdbs source
  6. *(available for download) for both the USERLIST and USEREDIT program.  
  7. *A donation is $20.00 or higher... thats up to you, but the better 
  8. *responce I get, the more I will update the programs.
  9. *
  10. *Please send all donations to:
  11. *
  12. *James E. Swarm
  13. *
  14. *P.O. Box 361093
  15. *Strongsville, Ohio 44136
  16. *BBS (216)237-4980
  17. *
  18. SET EXCLUSIVE OFF
  19. SET ESCAPE OFF
  20. PUBLIC up_byte,down_byte,upload,download,set
  21. if uansi()
  22.         set color to w+
  23. endif
  24. use "useredit"
  25. set index to "username"
  26. user = uname()
  27. seek user
  28. if .NOT. found()
  29.         ? ""
  30.         ? "User Database Record Not Found, please contact sysop."
  31.         ? ""
  32.         wait
  33.         quit
  34. endif
  35. up_byte = ulpeek(139,4)
  36. down_byte = ulpeek(135,4)
  37. level = upriv()
  38. ? "Your Upload/Download Ratio Settings:"
  39. ? ""
  40. ? "Access Level    : " level
  41. ? "Ratio  (Up/Down):     1 to" str(f_ratio1,2)
  42. ? "Uploaded Bytes  : " up_byte
  43. ? "Downloaded Bytes: " down_byte
  44. ? ""
  45. if down_byte >= up_byte * f_ratio1
  46.         dl_byte = ((up_byte * f_ratio1)/ down_byte)
  47.         ? "You must upload" int(dl_byte) "bytes before you can download again." 
  48.         ? ""
  49. else
  50.         dl_byte = ((up_byte * f_ratio1)- down_byte)
  51.         ? "You may download" int(dl_byte) "bytes before you have to upload."
  52.         ? ""
  53. ENDIF
  54. type ratio.txt
  55. ? "-Press Any Key-"
  56. key=0
  57. do while key=0
  58.         key = inkey()
  59. enddo
  60. QUIT
  61.